(f90-looking-at-where-or-forall): Oops, defsubst, not defun.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index e321dfce8d8bafdc9295f728826064d7f5e6a878..0e6eed254d08ea3c785a4e70a9a20c81ba295e8b 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -955,7 +955,7 @@ NAME is nil if the statement has no label."
                   (looking-at "then\\>")))
             (list struct label))))))
 
-(defun f90-looking-at-where-or-forall ()
+(defsubst f90-looking-at-where-or-forall ()
   "Return (KIND NAME) if a where or forall block starts after point.
 NAME is nil if the statement has no label."
   (save-excursion